COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00004 ENDMK
C⊗;
PRECEDE;				< Preliminary things
FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
FUNC FUN.FUN[SCR,LCS];
COMMON TOOT,CLAR;
COMMON newfm,FM,FM2,FM3,FM4;
*

REVRB 0 0 1;P2  73;END;

FM     ;
P2 RH/Z(4/8///16//2/4/16////8./16/4/8/////)/@Z/@Z/@-Z;
P3 NO/A(FS4/D5/CS/G/FS/E/ A:FS:DS/G:E:B4/FS5/E/D/CS/B4/BF/A/G/E/FS/G/
A/B)/@A1/@A2/@-A3/@A4/GS4/FINE;
CON " ";
P4 .7;					< maximum amplitude
P5 FUN/10//11;		  AMPL. FUNC.
P6 FUN/11/////10;				< FM INDEX ("SEG") function
P7 0  ;
P8 NU/2/25/8/REP 3 3/2/ 2/14/4/REP 3 3/2/ 1.5/6/2.5/ REP 3 3/2;	 < FM2
P9 NU/1.5/.625/P25/.7/2/REP 5 2/ 1.4/.8/.9/.7/2/REP 5 2/
1.2/.9/1/.9/1.1/REP 5 2/1X10; CARRIER SCALE FACTOR
P10 1;  MODULATOR SCALE FACTOR
P12 .08;
P25 .50 .9 1.1  .5 1 8;
DF 200.12;
END;
NEWFM    ;
DUPL 2;
P2 RH/Y(4/12///4./8/4./8/2/4///)/@Y/@Y/@-Y;
P3 NO/B(D3/FS/G/E/B/A/FS/G/D/CS/E/A2/G)/@B-1/@B-2/@-B-3/@B-4/B2/FINE;
P4 "/2";
P5 1;
DF 100.2;
END;
TEMPO/12 120/240;
RUN;
FM2 36;
DUPL 2;
P3 NO/@$C;
P2 RH/@B.5/REP 10 8/FINE;
P4 "*4";
END;
FM3 36;
DUPL 2;
P2 RH/@B2/REP 10 2/FINE;
P4 "/4";
END;
FM4 0;
DUPL 2;
P2 RH/@B4/@B2/FINE;
END;
TEMPO/240;